(declaim (optimize (debug 3) (safety 3)))

(in-package :roll/gui)

(defun symbol->rgb-vector (sym)
  (declare (type (or string symbol) sym))
  (let ((ret (assoc sym *color-table*)))
    (if ret
        (cdr ret)
        nil)))

(defvar *color-table*
  (list (CONS :SNOW  #(254 249 249))
        (CONS :GHOSTWHITE  #(247 247 254))
        (CONS :WHITESMOKE  #(244 244 244))
        (CONS :GAINSBORO  #(219 219 219))
        (CONS :FLORALWHITE  #(254 249 239))
        (CONS :OLDLACE  #(252 244 229))
        (CONS :LINEN  #(249 239 229))
        (CONS :ANTIQUEWHITE #(249 234 214))
        (CONS :PAPAYAWHIP  #(254 238 212))
        (CONS :BLANCHEDALMOND  #(254 234 204))
        (CONS   :BISQUE  #(254 227 195))
        (CONS   :PEACHPUFF  #(254 217 184))
        (CONS   :NAVAJOWHITE  #(254 221 172))
        (CONS   :MOCCASIN  #(254 227 180))
        (CONS   :CORNSILK  #(254 247 219))
        (CONS   :IVORY  #(254 254 239))
        (CONS   :LEMONCHIFFON #(254 249 204))
        (CONS   :SEASHELL  #(254 244 237))
        (CONS   :HONEYDEW  #(239 254 239))
        (CONS   :MINTCREAM  #(244 254 249))
        (CONS   :AZURE  #(239 254 254))
        (CONS   :ALICEBLUE  #(239 247 254))
        (CONS   :LAVENDER  #(229 229 249))
        (CONS   :LAVENDERBLUSH #(254 239 244))
        (CONS   :MISTYROSE  #(254 227 224))
        (CONS   :WHITE  #(254 254 254))
        (CONS   :BLACK  #(0 0 0))
        (CONS   :DARKSLATEGRAY  #(47 79 79))
        (CONS   :DARKSLATEGREY  #(47 79 79))
        (CONS   :DIMGRAY  #(105 105 105))
        (CONS   :DIMGREY  #(105 105 105))
        (CONS   :SLATEGRAY  #(112 128 143))
        (CONS   :SLATEGREY  #(112 128 143))
        (CONS   :LIGHTSLATEGRAY #(119 135 152))
        (CONS   :LIGHTSLATEGREY #(119 135 152))
        (CONS   :GRAY  #(189 189 189))
        (CONS   :GREY  #(189 189 189))
        (CONS   :LIGHTGREY  #(210 210 210))
        (CONS   :LIGHTGRAY  #(210 210 210))
        (CONS   :MIDNIGHTBLUE  #(25 25 112))
        (CONS   :NAVY  #(0 0 128))
        (CONS   :NAVYBLUE  #(0 0 128))
        (CONS   :CORNFLOWERBLUE #(100 148 236))
        (CONS   :DARKSLATEBLUE  #(72 61 138))
        (CONS   :SLATEBLUE  #(106 90 204))
        (CONS   :MEDIUMSLATEBLUE #(123 104 237))
        (CONS   :LIGHTSLATEBLUE #(131 112 254))
        (CONS   :MEDIUMBLUE  #(0 0 204))
        (CONS   :ROYALBLUE  #(65 105 224))
        (CONS   :BLUE  #(0 0 254))
        (CONS   :DODGERBLUE  #(30 143 254))
        (CONS   :DEEPSKYBLUE  #(0 190 254))
        (CONS   :SKYBLUE  #(134 205 234))
        (CONS   :LIGHTSKYBLUE  #(134 205 249))
        (CONS   :STEELBLUE  #(70 129 179))
        (CONS   :LIGHTSTEELBLUE #(175 195 221))
        (CONS   :LIGHTBLUE  #(172 215 229))
         (CONS   :POWDERBLUE  #(175 223 229))
         (CONS   :PALETURQUOISE #(174 237 237))
         (CONS   :DARKTURQUOISE  #(0 205 208))
         (CONS   :MEDIUMTURQUOISE #(72 208 203))
         (CONS   :TURQUOISE  #(64 223 207))
         (CONS   :CYAN  #(0 254 254))
         (CONS   :LIGHTCYAN  #(223 254 254))
         (CONS   :CADETBLUE  #(95 157 159))
         (CONS   :MEDIUMAQUAMARINE #(102 204 169))
         (CONS   :AQUAMARINE  #(127 254 211))
         (CONS   :DARKGREEN  #(0 100 0))
         (CONS   :DARKOLIVEGREEN #(85 107 47))
         (CONS   :DARKSEAGREEN #(142 187 142))
         (CONS   :SEAGREEN  #(46 138 87))
         (CONS   :MEDIUMSEAGREEN #(60 178 113))
         (CONS   :LIGHTSEAGREEN #(32 177 169))
         (CONS   :PALEGREEN  #(151 250 151))
         (CONS   :SPRINGGREEN  #(0 254 127))
         (CONS   :LAWNGREEN  #(124 251 0))
         (CONS   :GREEN  #(0 254 0))
         (CONS   :CHARTREUSE  #(127 254 0))
         (CONS   :MEDIUMSPRINGGREEN #(0 249 153))
         (CONS   :GREENYELLOW  #(172 254 47))
         (CONS   :LIMEGREEN  #(50 204 50))
         (CONS   :YELLOWGREEN  #(153 204 50))
         (CONS   :FORESTGREEN  #(34 138 34))
         (CONS   :OLIVEDRAB  #(107 141 35))
         (CONS   :DARKKHAKI  #(188 182 107))
         (CONS   :KHAKI  #(239 229 139))
         (CONS   :PALEGOLDENROD #(237 231 169))
         (CONS   :LIGHTGOLDENRODYELLOW #(249 249 209))
         (CONS   :LIGHTYELLOW  #(254 254 223))
         (CONS   :YELLOW  #(254 254 0))
         (CONS   :GOLD  #(254 214 0))
         (CONS   :LIGHTGOLDENROD #(237 220 129))
         (CONS   :GOLDENROD  #(217 164 32))
         (CONS   :DARKGOLDENROD #(183 133 11))
         (CONS   :ROSYBROWN  #(187 142 142))
         (CONS   :INDIANRED  #(204 92 92))
         (CONS   :SADDLEBROWN  #(138 69 19))
         (CONS   :SIENNA  #(159 82 45))
         (CONS   :PERU  #(204 132 63))
         (CONS   :BURLYWOOD  #(221 183 134))
         (CONS   :BEIGE  #(244 244 219))
         (CONS   :WHEAT  #(244 221 178))
         (CONS   :SANDYBROWN  #(243 163 96))
         (CONS   :TAN  #(209 179 139))
         (CONS   :CHOCOLATE  #(209 105 30))
         (CONS   :FIREBRICK  #(177 34 34))
         (CONS   :BROWN  #(164 42 42))
         (CONS   :DARKSALMON  #(232 149 122))
         (CONS   :SALMON  #(249 128 114))
         (CONS   :LIGHTSALMON  #(254 159 122))
         (CONS   :ORANGE  #(254 164 0))
         (CONS   :DARKORANGE  #(254 139 0))
         (CONS   :CORAL  #(254 127 80))
         (CONS   :LIGHTCORAL  #(239 128 128))
         (CONS   :TOMATO  #(254 99 71))
         (CONS   :ORANGERED  #(254 69 0))
         (CONS   :RED  #(254 0 0))
         (CONS   :HOTPINK  #(254 105 179))
         (CONS   :DEEPPINK  #(254 20 146))
         (CONS   :PINK  #(254 191 202))
         (CONS   :LIGHTPINK  #(254 181 192))
         (CONS   :PALEVIOLETRED #(218 112 146))
         (CONS   :MAROON  #(175 48 96))
         (CONS   :MEDIUMVIOLETRED #(198 21 132))
         (CONS   :VIOLETRED  #(207 32 143))
         (CONS   :MAGENTA  #(254 0 254))
         (CONS   :VIOLET  #(237 129 237))
         (CONS   :PLUM  #(220 159 220))
         (CONS   :ORCHID  #(217 112 213))
         (CONS   :MEDIUMORCHID  #(185 85 210))
         (CONS   :DARKORCHID  #(152 50 203))
         (CONS   :DARKVIOLET  #(147 0 210))
         (CONS   :BLUEVIOLET  #(137 43 225))
         (CONS   :PURPLE  #(159 32 239))
         (CONS   :MEDIUMPURPLE #(146 112 218))
         (CONS   :THISTLE  #(215 190 215))
         (CONS   :SNOW1  #(254 249 249))
         (CONS   :SNOW2  #(237 232 232))
         (CONS   :SNOW3  #(204 200 200))
         (CONS   :SNOW4  #(138 136 136))
         (CONS   :SEASHELL1  #(254 244 237))
         (CONS   :SEASHELL2  #(237 228 221))
         (CONS   :SEASHELL3  #(204 196 190))
         (CONS   :SEASHELL4  #(138 133 129))
         (CONS   :ANTIQUEWHITE1 #(254 238 218))
         (CONS   :ANTIQUEWHITE2 #(237 222 203))
         (CONS   :ANTIQUEWHITE3 #(204 191 175))
         (CONS   :ANTIQUEWHITE4 #(138 130 120))
         (CONS   :BISQUE1  #(254 227 195))
         (CONS   :BISQUE2  #(237 212 182))
         (CONS   :BISQUE3  #(204 182 157))
         (CONS   :BISQUE4  #(138 125 107))
         (CONS   :PEACHPUFF1  #(254 217 184))
         (CONS   :PEACHPUFF2  #(237 202 172))
         (CONS   :PEACHPUFF3  #(204 174 148))
         (CONS   :PEACHPUFF4  #(138 119 101))
         (CONS   :NAVAJOWHITE1 #(254 221 172))
         (CONS   :NAVAJOWHITE2 #(237 206 160))
         (CONS   :NAVAJOWHITE3 #(204 178 138))
         (CONS   :NAVAJOWHITE4  #(138 121 94))
         (CONS   :LEMONCHIFFON1 #(254 249 204))
         (CONS   :LEMONCHIFFON2 #(237 232 190))
         (CONS   :LEMONCHIFFON3 #(204 200 164))
         (CONS   :LEMONCHIFFON4 #(138 136 112))
         (CONS   :CORNSILK1  #(254 247 219))
         (CONS   :CORNSILK2  #(237 231 204))
         (CONS   :CORNSILK3  #(204 199 176))
         (CONS   :CORNSILK4  #(138 135 120))
         (CONS   :IVORY1  #(254 254 239))
         (CONS   :IVORY2  #(237 237 223))
         (CONS   :IVORY3  #(204 204 192))
         (CONS   :IVORY4  #(138 138 130))
         (CONS   :HONEYDEW1  #(239 254 239))
         (CONS   :HONEYDEW2  #(223 237 223))
         (CONS   :HONEYDEW3  #(192 204 192))
         (CONS   :HONEYDEW4  #(130 138 130))
         (CONS   :LAVENDERBLUSH1 #(254 239 244))
         (CONS   :LAVENDERBLUSH2 #(237 223 228))
         (CONS   :LAVENDERBLUSH3 #(204 192 196))
         (CONS   :LAVENDERBLUSH4 #(138 130 133))
         (CONS   :MISTYROSE1  #(254 227 224))
         (CONS   :MISTYROSE2  #(237 212 209))
         (CONS   :MISTYROSE3  #(204 182 180))
         (CONS   :MISTYROSE4  #(138 125 123))
         (CONS   :AZURE1  #(239 254 254))
         (CONS   :AZURE2  #(223 237 237))
         (CONS   :AZURE3  #(192 204 204))
         (CONS   :AZURE4  #(130 138 138))
         (CONS   :SLATEBLUE1  #(130 111 254))
         (CONS   :SLATEBLUE2  #(122 103 237))
         (CONS   :SLATEBLUE3  #(105 89 204))
         (CONS   :SLATEBLUE4  #(71 60 138))
         (CONS   :ROYALBLUE1  #(72 118 254))
         (CONS   :ROYALBLUE2  #(67 110 237))
         (CONS   :ROYALBLUE3  #(58 95 204))
         (CONS   :ROYALBLUE4  #(39 64 138))
         (CONS   :BLUE1  #(0 0 254))
         (CONS   :BLUE2  #(0 0 237))
         (CONS   :BLUE3  #(0 0 204))
         (CONS   :BLUE4  #(0 0 138))
         (CONS   :DODGERBLUE1  #(30 143 254))
         (CONS   :DODGERBLUE2  #(28 133 237))
         (CONS   :DODGERBLUE3  #(24 116 204))
         (CONS   :DODGERBLUE4  #(16 78 138))
         (CONS   :STEELBLUE1  #(99 183 254))
         (CONS   :STEELBLUE2  #(92 171 237))
         (CONS   :STEELBLUE3  #(79 147 204))
         (CONS   :STEELBLUE4  #(54 100 138))
         (CONS   :DEEPSKYBLUE1  #(0 190 254))
         (CONS   :DEEPSKYBLUE2  #(0 177 237))
         (CONS   :DEEPSKYBLUE3  #(0 153 204))
         (CONS   :DEEPSKYBLUE4  #(0 104 138))
         (CONS   :SKYBLUE1  #(134 205 254))
         (CONS   :SKYBLUE2  #(126 191 237))
         (CONS   :SKYBLUE3  #(108 165 204))
         (CONS   :SKYBLUE4  #(74 112 138))
         (CONS   :LIGHTSKYBLUE1 #(175 225 254))
         (CONS   :LIGHTSKYBLUE2 #(163 210 237))
         (CONS   :LIGHTSKYBLUE3 #(140 181 204))
         (CONS   :LIGHTSKYBLUE4 #(96 123 138))
         (CONS   :SLATEGRAY1  #(197 225 254))
         (CONS   :SLATEGRAY2  #(184 210 237))
         (CONS   :SLATEGRAY3  #(158 181 204))
         (CONS   :SLATEGRAY4  #(108 123 138))
         (CONS   :LIGHTSTEELBLUE1 #(201 224 254))
         (CONS   :LIGHTSTEELBLUE2 #(187 209 237))
         (CONS   :LIGHTSTEELBLUE3 #(161 180 204))
         (CONS   :LIGHTSTEELBLUE4 #(110 123 138))
         (CONS   :LIGHTBLUE1  #(190 238 254))
         (CONS   :LIGHTBLUE2  #(177 222 237))
         (CONS   :LIGHTBLUE3  #(153 191 204))
         (CONS   :LIGHTBLUE4  #(104 130 138))
         (CONS   :LIGHTCYAN1  #(223 254 254))
         (CONS   :LIGHTCYAN2  #(208 237 237))
         (CONS   :LIGHTCYAN3  #(179 204 204))
         (CONS   :LIGHTCYAN4  #(122 138 138))
         (CONS   :PALETURQUOISE1 #(186 254 254))
         (CONS   :PALETURQUOISE2 #(173 237 237))
         (CONS   :PALETURQUOISE3 #(149 204 204))
         (CONS   :PALETURQUOISE4 #(102 138 138))
         (CONS   :CADETBLUE1  #(151 244 254))
         (CONS   :CADETBLUE2  #(141 228 237))
         (CONS   :CADETBLUE3  #(122 196 204))
         (CONS   :CADETBLUE4  #(83 133 138))
         (CONS   :TURQUOISE1  #(0 244 254))
         (CONS   :TURQUOISE2  #(0 228 237))
         (CONS   :TURQUOISE3  #(0 196 204))
         (CONS   :TURQUOISE4  #(0 133 138))
         (CONS   :CYAN1  #(0 254 254))
         (CONS   :CYAN2  #(0 237 237))
         (CONS   :CYAN3  #(0 204 204))
         (CONS   :CYAN4  #(0 138 138))
         (CONS   :DARKSLATEGRAY1 #(150 254 254))
         (CONS   :DARKSLATEGRAY2 #(140 237 237))
         (CONS   :DARKSLATEGRAY3 #(121 204 204))
         (CONS   :DARKSLATEGRAY4 #(82 138 138))
         (CONS   :AQUAMARINE1  #(127 254 211))
         (CONS   :AQUAMARINE2  #(118 237 197))
         (CONS   :AQUAMARINE3  #(102 204 169))
         (CONS   :AQUAMARINE4  #(69 138 116))
         (CONS   :DARKSEAGREEN1 #(192 254 192))
         (CONS   :DARKSEAGREEN2 #(179 237 179))
         (CONS   :DARKSEAGREEN3 #(154 204 154))
         (CONS   :DARKSEAGREEN4 #(105 138 105))
         (CONS   :SEAGREEN1  #(84 254 158))
         (CONS   :SEAGREEN2  #(78 237 147))
         (CONS   :SEAGREEN3  #(67 204 128))
         (CONS   :SEAGREEN4  #(46 138 87))
         (CONS   :PALEGREEN1  #(153 254 153))
         (CONS   :PALEGREEN2  #(143 237 143))
         (CONS   :PALEGREEN3  #(124 204 124))
         (CONS   :PALEGREEN4  #(84 138 84))
         (CONS   :SPRINGGREEN1  #(0 254 127))
         (CONS   :SPRINGGREEN2  #(0 237 118))
         (CONS   :SPRINGGREEN3  #(0 204 102))
         (CONS   :SPRINGGREEN4  #(0 138 69))
         (CONS   :GREEN1  #(0 254 0))
         (CONS   :GREEN2  #(0 237 0))
         (CONS   :GREEN3  #(0 204 0))
         (CONS   :GREEN4  #(0 138 0))
         (CONS   :CHARTREUSE1  #(127 254 0))
         (CONS   :CHARTREUSE2  #(118 237 0))
         (CONS   :CHARTREUSE3  #(102 204 0))
         (CONS   :CHARTREUSE4  #(69 138 0))
         (CONS   :OLIVEDRAB1  #(191 254 62))
         (CONS   :OLIVEDRAB2  #(178 237 58))
         (CONS   :OLIVEDRAB3  #(153 204 50))
         (CONS   :OLIVEDRAB4  #(105 138 34))
         (CONS   :DARKOLIVEGREEN1 #(201 254 112))
         (CONS   :DARKOLIVEGREEN2 #(187 237 104))
         (CONS   :DARKOLIVEGREEN3 #(161 204 90))
         (CONS   :DARKOLIVEGREEN4 #(110 138 61))
         (CONS   :KHAKI1  #(254 245 142))
         (CONS   :KHAKI2  #(237 229 132))
         (CONS   :KHAKI3  #(204 197 115))
         (CONS   :KHAKI4  #(138 133 78))
         (CONS   :LIGHTGOLDENROD1 #(254 235 138))
         (CONS   :LIGHTGOLDENROD2 #(237 219 129))
         (CONS   :LIGHTGOLDENROD3 #(204 189 112))
         (CONS   :LIGHTGOLDENROD4 #(138 128 76))
         (CONS   :LIGHTYELLOW1 #(254 254 223))
         (CONS   :LIGHTYELLOW2 #(237 237 208))
         (CONS   :LIGHTYELLOW3 #(204 204 179))
         (CONS   :LIGHTYELLOW4 #(138 138 122))
         (CONS   :YELLOW1  #(254 254 0))
         (CONS   :YELLOW2  #(237 237 0))
         (CONS   :YELLOW3  #(204 204 0))
         (CONS   :YELLOW4  #(138 138 0))
         (CONS   :GOLD1  #(254 214 0))
         (CONS   :GOLD2  #(237 200 0))
         (CONS   :GOLD3  #(204 172 0))
         (CONS   :GOLD4  #(138 117 0))
         (CONS   :GOLDENROD1  #(254 192 37))
         (CONS   :GOLDENROD2  #(237 179 34))
         (CONS   :GOLDENROD3  #(204 154 29))
         (CONS   :GOLDENROD4  #(138 105 20))
         (CONS   :DARKGOLDENROD1 #(254 184 15))
         (CONS   :DARKGOLDENROD2 #(237 172 14))
         (CONS   :DARKGOLDENROD3 #(204 148 12))
         (CONS   :DARKGOLDENROD4 #(138 101 8))
         (CONS   :ROSYBROWN1  #(254 192 192))
         (CONS   :ROSYBROWN2  #(237 179 179))
         (CONS   :ROSYBROWN3  #(204 154 154))
         (CONS   :ROSYBROWN4  #(138 105 105))
         (CONS   :INDIANRED1  #(254 106 106))
         (CONS   :INDIANRED2  #(237 99 99))
         (CONS   :INDIANRED3  #(204 85 85))
         (CONS   :INDIANRED4  #(138 58 58))
         (CONS   :SIENNA1  #(254 129 71))
         (CONS   :SIENNA2  #(237 121 66))
         (CONS   :SIENNA3  #(204 104 57))
         (CONS   :SIENNA4  #(138 71 38))
         (CONS   :BURLYWOOD1  #(254 210 154))
         (CONS   :BURLYWOOD2  #(237 196 144))
         (CONS   :BURLYWOOD3  #(204 169 125))
         (CONS   :BURLYWOOD4  #(138 115 85))
         (CONS   :WHEAT1  #(254 230 185))
         (CONS   :WHEAT2  #(237 215 173))
         (CONS   :WHEAT3  #(204 185 149))
         (CONS   :WHEAT4  #(138 126 102))
         (CONS   :TAN1  #(254 164 79))
         (CONS   :TAN2  #(237 153 73))
         (CONS   :TAN3  #(204 132 63))
         (CONS   :TAN4  #(138 90 43))
         (CONS   :CHOCOLATE1  #(254 127 36))
         (CONS   :CHOCOLATE2  #(237 118 33))
         (CONS   :CHOCOLATE3  #(204 102 29))
         (CONS   :CHOCOLATE4  #(138 69 19))
         (CONS   :FIREBRICK1  #(254 48 48))
         (CONS   :FIREBRICK2  #(237 44 44))
         (CONS   :FIREBRICK3  #(204 38 38))
         (CONS   :FIREBRICK4  #(138 26 26))
         (CONS   :BROWN1  #(254 64 64))
         (CONS   :BROWN2  #(237 59 59))
         (CONS   :BROWN3  #(204 51 51))
         (CONS   :BROWN4  #(138 35 35))
         (CONS   :SALMON1  #(254 139 105))
         (CONS   :SALMON2  #(237 129 98))
         (CONS   :SALMON3  #(204 112 84))
         (CONS   :SALMON4  #(138 76 57))
         (CONS   :LIGHTSALMON1 #(254 159 122))
         (CONS   :LIGHTSALMON2 #(237 148 114))
         (CONS   :LIGHTSALMON3  #(204 128 98))
         (CONS   :LIGHTSALMON4  #(138 87 66))
         (CONS   :ORANGE1  #(254 164 0))
         (CONS   :ORANGE2  #(237 153 0))
         (CONS   :ORANGE3  #(204 132 0))
         (CONS   :ORANGE4  #(138 90 0))
         (CONS   :DARKORANGE1  #(254 127 0))
         (CONS   :DARKORANGE2  #(237 118 0))
         (CONS   :DARKORANGE3  #(204 102 0))
         (CONS   :DARKORANGE4  #(138 69 0))
         (CONS   :CORAL1  #(254 114 86))
         (CONS   :CORAL2  #(237 106 80))
         (CONS   :CORAL3  #(204 91 69))
         (CONS   :CORAL4  #(138 62 47))
         (CONS   :TOMATO1  #(254 99 71))
         (CONS   :TOMATO2  #(237 92 66))
         (CONS   :TOMATO3  #(204 79 57))
         (CONS   :TOMATO4  #(138 54 38))
         (CONS   :ORANGERED1  #(254 69 0))
         (CONS   :ORANGERED2  #(237 64 0))
         (CONS   :ORANGERED3  #(204 55 0))
         (CONS   :ORANGERED4  #(138 37 0))
         (CONS   :RED1  #(254 0 0))
         (CONS   :RED2  #(237 0 0))
         (CONS   :RED3  #(204 0 0))
         (CONS   :RED4  #(138 0 0))
         (CONS   :DEEPPINK1  #(254 20 146))
         (CONS   :DEEPPINK2  #(237 18 136))
         (CONS   :DEEPPINK3  #(204 16 118))
         (CONS   :DEEPPINK4  #(138 10 80))
         (CONS   :HOTPINK1  #(254 110 179))
         (CONS   :HOTPINK2  #(237 106 166))
         (CONS   :HOTPINK3  #(204 96 143))
         (CONS   :HOTPINK4  #(138 58 98))
         (CONS   :PINK1  #(254 180 196))
         (CONS   :PINK2  #(237 168 183))
         (CONS   :PINK3  #(204 144 157))
         (CONS   :PINK4  #(138 99 108))
         (CONS   :LIGHTPINK1  #(254 173 184))
         (CONS   :LIGHTPINK2  #(237 161 172))
         (CONS   :LIGHTPINK3  #(204 139 148))
         (CONS   :LIGHTPINK4  #(138 95 101))
         (CONS   :PALEVIOLETRED1 #(254 129 170))
         (CONS   :PALEVIOLETRED2 #(237 121 158))
         (CONS   :PALEVIOLETRED3 #(204 104 136))
         (CONS   :PALEVIOLETRED4 #(138 71 93))
         (CONS   :MAROON1  #(254 52 178))
         (CONS   :MAROON2  #(237 48 166))
         (CONS   :MAROON3  #(204 41 143))
         (CONS   :MAROON4  #(138 28 98))
         (CONS   :VIOLETRED1  #(254 62 149))
         (CONS   :VIOLETRED2  #(237 58 139))
         (CONS   :VIOLETRED3  #(204 50 120))
         (CONS   :VIOLETRED4  #(138 34 82))
         (CONS   :MAGENTA1  #(254 0 254))
         (CONS   :MAGENTA2  #(237 0 237))
         (CONS   :MAGENTA3  #(204 0 204))
         (CONS   :MAGENTA4  #(138 0 138))
         (CONS   :ORCHID1  #(254 130 249))
         (CONS   :ORCHID2  #(237 122 232))
         (CONS   :ORCHID3  #(204 105 200))
         (CONS   :ORCHID4  #(138 71 136))
         (CONS   :PLUM1  #(254 186 254))
         (CONS   :PLUM2  #(237 173 237))
         (CONS   :PLUM3  #(204 149 204))
         (CONS   :PLUM4  #(138 102 138))
         (CONS   :MEDIUMORCHID1 #(223 102 254))
         (CONS   :MEDIUMORCHID2 #(208 95 237))
         (CONS   :MEDIUMORCHID3 #(179 82 204))
         (CONS   :MEDIUMORCHID4 #(122 55 138))
         (CONS   :DARKORCHID1  #(190 62 254))
         (CONS   :DARKORCHID2  #(177 58 237))
         (CONS   :DARKORCHID3  #(153 50 204))
         (CONS   :DARKORCHID4  #(104 34 138))
         (CONS   :PURPLE1  #(154 48 254))
         (CONS   :PURPLE2  #(144 44 237))
         (CONS   :PURPLE3  #(125 38 204))
         (CONS   :PURPLE4  #(85 26 138))
         (CONS   :MEDIUMPURPLE1 #(170 129 254))
         (CONS   :MEDIUMPURPLE2 #(158 121 237))
         (CONS   :MEDIUMPURPLE3 #(136 104 204))
         (CONS   :MEDIUMPURPLE4  #(93 71 138))
         (CONS   :THISTLE1  #(254 224 254))
         (CONS   :THISTLE2  #(237 209 237))
         (CONS   :THISTLE3  #(204 180 204))
         (CONS   :THISTLE4  #(138 123 138))
         (CONS   :GRAY0  #(0 0 0))
         (CONS   :GREY0  #(0 0 0))
         (CONS   :GRAY1  #(3 3 3))
         (CONS   :GREY1  #(3 3 3))
         (CONS   :GRAY2  #(5 5 5))
         (CONS   :GREY2  #(5 5 5))
         (CONS   :GRAY3  #(8 8 8))
         (CONS   :GREY3  #(8 8 8))
         (CONS   :GRAY4  #(10 10 10))
         (CONS   :GREY4  #(10 10 10))
         (CONS   :GRAY5  #(13 13 13))
         (CONS   :GREY5  #(13 13 13))
         (CONS   :GRAY6  #(15 15 15))
         (CONS   :GREY6  #(15 15 15))
         (CONS   :GRAY7  #(18 18 18))
         (CONS   :GREY7  #(18 18 18))
         (CONS   :GRAY8  #(20 20 20))
         (CONS   :GREY8  #(20 20 20))
         (CONS   :GRAY9  #(23 23 23))
         (CONS   :GREY9  #(23 23 23))
         (CONS   :GRAY10  #(26 26 26))
         (CONS   :GREY10  #(26 26 26))
         (CONS   :GRAY11  #(28 28 28))
         (CONS   :GREY11  #(28 28 28))
         (CONS   :GRAY12  #(31 31 31))
         (CONS   :GREY12  #(31 31 31))
         (CONS   :GRAY13  #(33 33 33))
         (CONS   :GREY13  #(33 33 33))
         (CONS   :GRAY14  #(36 36 36))
         (CONS   :GREY14  #(36 36 36))
         (CONS   :GRAY15  #(38 38 38))
         (CONS   :GREY15  #(38 38 38))
         (CONS   :GRAY16  #(41 41 41))
         (CONS   :GREY16  #(41 41 41))
         (CONS   :GRAY17  #(43 43 43))
         (CONS   :GREY17  #(43 43 43))
         (CONS   :GRAY18  #(46 46 46))
         (CONS   :GREY18  #(46 46 46))
         (CONS   :GRAY19  #(48 48 48))
         (CONS   :GREY19  #(48 48 48))
         (CONS   :GRAY20  #(51 51 51))
         (CONS   :GREY20  #(51 51 51))
         (CONS   :GRAY21  #(54 54 54))
         (CONS   :GREY21  #(54 54 54))
         (CONS   :GRAY22  #(56 56 56))
         (CONS   :GREY22  #(56 56 56))
         (CONS   :GRAY23  #(59 59 59))
         (CONS   :GREY23  #(59 59 59))
         (CONS   :GRAY24  #(61 61 61))
         (CONS   :GREY24  #(61 61 61))
         (CONS   :GRAY25  #(64 64 64))
         (CONS   :GREY25  #(64 64 64))
         (CONS   :GRAY26  #(66 66 66))
         (CONS   :GREY26  #(66 66 66))
         (CONS   :GRAY27  #(69 69 69))
         (CONS   :GREY27  #(69 69 69))
         (CONS   :GRAY28  #(71 71 71))
         (CONS   :GREY28  #(71 71 71))
         (CONS   :GRAY29  #(74 74 74))
         (CONS   :GREY29  #(74 74 74))
         (CONS   :GRAY30  #(77 77 77))
         (CONS   :GREY30  #(77 77 77))
         (CONS   :GRAY31  #(79 79 79))
         (CONS   :GREY31  #(79 79 79))
         (CONS   :GRAY32  #(82 82 82))
         (CONS   :GREY32  #(82 82 82))
         (CONS   :GRAY33  #(84 84 84))
         (CONS   :GREY33  #(84 84 84))
         (CONS   :GRAY34  #(87 87 87))
         (CONS   :GREY34  #(87 87 87))
         (CONS   :GRAY35  #(89 89 89))
         (CONS   :GREY35  #(89 89 89))
         (CONS   :GRAY36  #(92 92 92))
         (CONS   :GREY36  #(92 92 92))
         (CONS   :GRAY37  #(94 94 94))
         (CONS   :GREY37  #(94 94 94))
         (CONS   :GRAY38  #(97 97 97))
         (CONS   :GREY38  #(97 97 97))
         (CONS   :GRAY39  #(99 99 99))
         (CONS   :GREY39  #(99 99 99))
         (CONS   :GRAY40  #(102 102 102))
         (CONS   :GREY40  #(102 102 102))
         (CONS   :GRAY41  #(105 105 105))
         (CONS   :GREY41  #(105 105 105))
         (CONS   :GRAY42  #(107 107 107))
         (CONS   :GREY42  #(107 107 107))
         (CONS   :GRAY43  #(110 110 110))
         (CONS   :GREY43  #(110 110 110))
         (CONS   :GRAY44  #(112 112 112))
         (CONS   :GREY44  #(112 112 112))
         (CONS   :GRAY45  #(115 115 115))
         (CONS   :GREY45  #(115 115 115))
         (CONS   :GRAY46  #(117 117 117))
         (CONS   :GREY46  #(117 117 117))
         (CONS   :GRAY47  #(120 120 120))
         (CONS   :GREY47  #(120 120 120))
         (CONS   :GRAY48  #(122 122 122))
         (CONS   :GREY48  #(122 122 122))
         (CONS   :GRAY49  #(125 125 125))
         (CONS   :GREY49  #(125 125 125))
         (CONS   :GRAY50  #(127 127 127))
         (CONS   :GREY50  #(127 127 127))
         (CONS   :GRAY51  #(129 129 129))
         (CONS   :GREY51  #(129 129 129))
         (CONS   :GRAY52  #(132 132 132))
         (CONS   :GREY52  #(132 132 132))
         (CONS   :GRAY53  #(134 134 134))
         (CONS   :GREY53  #(134 134 134))
         (CONS   :GRAY54  #(137 137 137))
         (CONS   :GREY54  #(137 137 137))
         (CONS   :GRAY55  #(139 139 139))
         (CONS   :GREY55  #(139 139 139))
         (CONS   :GRAY56  #(142 142 142))
         (CONS   :GREY56  #(142 142 142))
         (CONS   :GRAY57  #(144 144 144))
         (CONS   :GREY57  #(144 144 144))
         (CONS   :GRAY58  #(147 147 147))
         (CONS   :GREY58  #(147 147 147))
         (CONS   :GRAY59  #(149 149 149))
         (CONS   :GREY59  #(149 149 149))
         (CONS   :GRAY60  #(152 152 152))
         (CONS   :GREY60  #(152 152 152))
         (CONS   :GRAY61  #(155 155 155))
         (CONS   :GREY61  #(155 155 155))
         (CONS   :GRAY62  #(157 157 157))
         (CONS   :GREY62  #(157 157 157))
         (CONS   :GRAY63  #(160 160 160))
         (CONS   :GREY63  #(160 160 160))
         (CONS   :GRAY64  #(162 162 162))
         (CONS   :GREY64  #(162 162 162))
         (CONS   :GRAY65  #(165 165 165))
         (CONS   :GREY65  #(165 165 165))
         (CONS   :GRAY66  #(167 167 167))
         (CONS   :GREY66  #(167 167 167))
         (CONS   :GRAY67  #(170 170 170))
         (CONS   :GREY67  #(170 170 170))
         (CONS   :GRAY68  #(172 172 172))
         (CONS   :GREY68  #(172 172 172))
         (CONS   :GRAY69  #(175 175 175))
         (CONS   :GREY69  #(175 175 175))
         (CONS   :GRAY70  #(178 178 178))
         (CONS   :GREY70  #(178 178 178))
         (CONS   :GRAY71  #(180 180 180))
         (CONS   :GREY71  #(180 180 180))
         (CONS   :GRAY72  #(183 183 183))
         (CONS   :GREY72  #(183 183 183))
         (CONS   :GRAY73  #(185 185 185))
         (CONS   :GREY73  #(185 185 185))
         (CONS   :GRAY74  #(188 188 188))
         (CONS   :GREY74  #(188 188 188))
         (CONS   :GRAY75  #(190 190 190))
         (CONS   :GREY75  #(190 190 190))
         (CONS   :GRAY76  #(193 193 193))
         (CONS   :GREY76  #(193 193 193))
         (CONS   :GRAY77  #(195 195 195))
         (CONS   :GREY77  #(195 195 195))
         (CONS   :GRAY78  #(198 198 198))
         (CONS   :GREY78  #(198 198 198))
         (CONS   :GRAY79  #(200 200 200))
         (CONS   :GREY79  #(200 200 200))
         (CONS   :GRAY80  #(203 203 203))
         (CONS   :GREY80  #(203 203 203))
         (CONS   :GRAY81  #(206 206 206))
         (CONS   :GREY81  #(206 206 206))
         (CONS   :GRAY82  #(208 208 208))
         (CONS   :GREY82  #(208 208 208))
         (CONS   :GRAY83  #(211 211 211))
         (CONS   :GREY83  #(211 211 211))
         (CONS   :GRAY84  #(213 213 213))
         (CONS   :GREY84  #(213 213 213))
         (CONS   :GRAY85  #(216 216 216))
         (CONS   :GREY85  #(216 216 216))
         (CONS   :GRAY86  #(218 218 218))
         (CONS   :GREY86  #(218 218 218))
         (CONS   :GRAY87  #(221 221 221))
         (CONS   :GREY87  #(221 221 221))
         (CONS   :GRAY88  #(223 223 223))
         (CONS   :GREY88  #(223 223 223))
         (CONS   :GRAY89  #(226 226 226))
         (CONS   :GREY89  #(226 226 226))
         (CONS   :GRAY90  #(228 228 228))
         (CONS   :GREY90  #(228 228 228))
         (CONS   :GRAY91  #(231 231 231))
         (CONS   :GREY91  #(231 231 231))
         (CONS   :GRAY92  #(234 234 234))
         (CONS   :GREY92  #(234 234 234))
         (CONS   :GRAY93  #(236 236 236))
         (CONS   :GREY93  #(236 236 236))
         (CONS   :GRAY94  #(239 239 239))
         (CONS   :GREY94  #(239 239 239))
         (CONS   :GRAY95  #(241 241 241))
         (CONS   :GREY95  #(241 241 241))
         (CONS   :GRAY96  #(244 244 244))
         (CONS   :GREY96  #(244 244 244))
         (CONS   :GRAY97  #(246 246 246))
         (CONS   :GREY97  #(246 246 246))
         (CONS   :GRAY98  #(249 249 249))
         (CONS   :GREY98  #(249 249 249))
         (CONS   :GRAY99  #(251 251 251))
         (CONS   :GREY99  #(251 251 251))
         (CONS   :GRAY100  #(254 254 254))
         (CONS   :GREY100  #(254 254 254))
         (CONS   :DARKGREY  #(168 168 168))
         (CONS   :DARKGRAY  #(168 168 168))
         (CONS   :DARKBLUE  #(0 0 138))
         (CONS   :DARKCYAN  #(0 138 138))
         (CONS   :DARKMAGENTA  #(138 0 138))
         (CONS   :DARKRED  #(138 0 0))
         (CONS   :LIGHTGREEN  #(143 237 143))
         (CONS   :INTENSITY-0  #(0 0 0))
         (CONS   :INTENSITY-1  #(1 1 1))
         (CONS   :INTENSITY-2  #(2 2 2))
         (CONS   :INTENSITY-3  #(3 3 3))
         (CONS   :INTENSITY-4  #(4 4 4))
         (CONS   :INTENSITY-5  #(5 5 5))
         (CONS   :INTENSITY-6  #(6 6 6))
         (CONS   :INTENSITY-7  #(7 7 7))
         (CONS   :INTENSITY-8  #(8 8 8))
         (CONS   :INTENSITY-9  #(9 9 9))
         (CONS   :INTENSITY-10  #(10 10 10))
         (CONS   :INTENSITY-11  #(11 11 11))
         (CONS   :INTENSITY-12  #(12 12 12))
         (CONS   :INTENSITY-13  #(13 13 13))
         (CONS   :INTENSITY-14  #(14 14 14))
         (CONS   :INTENSITY-15  #(15 15 15))
         (CONS   :INTENSITY-16  #(16 16 16))
         (CONS   :INTENSITY-17  #(17 17 17))
         (CONS   :INTENSITY-18  #(18 18 18))
         (CONS   :INTENSITY-19  #(19 19 19))
         (CONS   :INTENSITY-20  #(20 20 20))
         (CONS   :INTENSITY-21  #(21 21 21))
         (CONS   :INTENSITY-22  #(22 22 22))
         (CONS   :INTENSITY-23  #(23 23 23))
         (CONS   :INTENSITY-24  #(24 24 24))
         (CONS   :INTENSITY-25  #(25 25 25))
         (CONS   :INTENSITY-26  #(26 26 26))
         (CONS   :INTENSITY-27  #(27 27 27))
         (CONS   :INTENSITY-28  #(28 28 28))
         (CONS   :INTENSITY-29  #(29 29 29))
         (CONS   :INTENSITY-30  #(30 30 30))
         (CONS   :INTENSITY-31  #(31 31 31))
         (CONS   :INTENSITY-32  #(32 32 32))
         (CONS   :INTENSITY-33  #(33 33 33))
         (CONS   :INTENSITY-34  #(34 34 34))
         (CONS   :INTENSITY-35  #(35 35 35))
         (CONS   :INTENSITY-36  #(36 36 36))
         (CONS   :INTENSITY-37  #(37 37 37))
         (CONS   :INTENSITY-38  #(38 38 38))
         (CONS   :INTENSITY-39  #(39 39 39))
         (CONS   :INTENSITY-40  #(40 40 40))
         (CONS   :INTENSITY-41  #(41 41 41))
         (CONS   :INTENSITY-42  #(42 42 42))
         (CONS   :INTENSITY-43  #(43 43 43))
         (CONS   :INTENSITY-44  #(44 44 44))
         (CONS   :INTENSITY-45  #(45 45 45))
         (CONS   :INTENSITY-46  #(46 46 46))
         (CONS   :INTENSITY-47  #(47 47 47))
         (CONS   :INTENSITY-48  #(48 48 48))
         (CONS   :INTENSITY-49  #(49 49 49))
         (CONS   :INTENSITY-50  #(50 50 50))
         (CONS   :INTENSITY-51  #(51 51 51))
         (CONS   :INTENSITY-52  #(52 52 52))
         (CONS   :INTENSITY-53  #(53 53 53))
         (CONS   :INTENSITY-54  #(54 54 54))
         (CONS   :INTENSITY-55  #(55 55 55))
         (CONS   :INTENSITY-56  #(56 56 56))
         (CONS   :INTENSITY-57  #(57 57 57))
         (CONS   :INTENSITY-58  #(58 58 58))
         (CONS   :INTENSITY-59  #(59 59 59))
         (CONS   :INTENSITY-60  #(60 60 60))
         (CONS   :INTENSITY-61  #(61 61 61))
         (CONS   :INTENSITY-62  #(62 62 62))
         (CONS   :INTENSITY-63  #(63 63 63))
         (CONS   :INTENSITY-64  #(64 64 64))
         (CONS   :INTENSITY-65  #(65 65 65))
         (CONS   :INTENSITY-66  #(66 66 66))
         (CONS   :INTENSITY-67  #(67 67 67))
         (CONS   :INTENSITY-68  #(68 68 68))
         (CONS   :INTENSITY-69  #(69 69 69))
         (CONS   :INTENSITY-70  #(70 70 70))
         (CONS   :INTENSITY-71  #(71 71 71))
         (CONS   :INTENSITY-72  #(72 72 72))
         (CONS   :INTENSITY-73  #(73 73 73))
         (CONS   :INTENSITY-74  #(74 74 74))
         (CONS   :INTENSITY-75  #(75 75 75))
         (CONS   :INTENSITY-76  #(76 76 76))
         (CONS   :INTENSITY-77  #(77 77 77))
         (CONS   :INTENSITY-78  #(78 78 78))
         (CONS   :INTENSITY-79  #(79 79 79))
         (CONS   :INTENSITY-80  #(80 80 80))
         (CONS   :INTENSITY-81  #(81 81 81))
         (CONS   :INTENSITY-82  #(82 82 82))
         (CONS   :INTENSITY-83  #(83 83 83))
         (CONS   :INTENSITY-84  #(84 84 84))
         (CONS   :INTENSITY-85  #(85 85 85))
         (CONS   :INTENSITY-86  #(86 86 86))
         (CONS   :INTENSITY-87  #(87 87 87))
         (CONS   :INTENSITY-88  #(88 88 88))
         (CONS   :INTENSITY-89  #(89 89 89))
         (CONS   :INTENSITY-90  #(90 90 90))
         (CONS   :INTENSITY-91  #(91 91 91))
         (CONS   :INTENSITY-92  #(92 92 92))
         (CONS   :INTENSITY-93  #(93 93 93))
         (CONS   :INTENSITY-94  #(94 94 94))
         (CONS   :INTENSITY-95  #(95 95 95))
         (CONS   :INTENSITY-96  #(96 96 96))
         (CONS   :INTENSITY-97  #(97 97 97))
         (CONS   :INTENSITY-98  #(98 98 98))
         (CONS   :INTENSITY-99  #(99 99 99))
         (CONS   :INTENSITY-100 #(100 100 100))
         (CONS   :INTENSITY-101 #(101 101 101))
         (CONS   :INTENSITY-102 #(102 102 102))
         (CONS   :INTENSITY-103 #(103 103 103))
         (CONS   :INTENSITY-104 #(104 104 104))
         (CONS   :INTENSITY-105 #(105 105 105))
         (CONS   :INTENSITY-106 #(106 106 106))
         (CONS   :INTENSITY-107 #(107 107 107))
         (CONS   :INTENSITY-108 #(108 108 108))
         (CONS   :INTENSITY-109 #(109 109 109))
         (CONS   :INTENSITY-110 #(110 110 110))
         (CONS   :INTENSITY-111 #(111 111 111))
         (CONS   :INTENSITY-112 #(112 112 112))
         (CONS   :INTENSITY-113 #(113 113 113))
         (CONS   :INTENSITY-114 #(114 114 114))
         (CONS   :INTENSITY-115 #(115 115 115))
         (CONS   :INTENSITY-116 #(116 116 116))
         (CONS   :INTENSITY-117 #(117 117 117))
         (CONS   :INTENSITY-118 #(118 118 118))
         (CONS   :INTENSITY-119 #(119 119 119))
         (CONS   :INTENSITY-120 #(120 120 120))
         (CONS   :INTENSITY-121 #(121 121 121))
         (CONS   :INTENSITY-122 #(122 122 122))
         (CONS   :INTENSITY-123 #(123 123 123))
         (CONS   :INTENSITY-124 #(124 124 124))
         (CONS   :INTENSITY-125 #(125 125 125))
         (CONS   :INTENSITY-126 #(126 126 126))
         (CONS   :INTENSITY-127 #(127 127 127))
         (CONS   :INTENSITY-128 #(128 128 128))
         (CONS   :INTENSITY-129 #(129 129 129))
         (CONS   :INTENSITY-130 #(130 130 130))
         (CONS   :INTENSITY-131 #(131 131 131))
         (CONS   :INTENSITY-132 #(132 132 132))
         (CONS   :INTENSITY-133 #(133 133 133))
         (CONS   :INTENSITY-134 #(134 134 134))
         (CONS   :INTENSITY-135 #(135 135 135))
         (CONS   :INTENSITY-136 #(136 136 136))
         (CONS   :INTENSITY-137 #(137 137 137))
         (CONS   :INTENSITY-138 #(138 138 138))
         (CONS   :INTENSITY-139 #(139 139 139))
         (CONS   :INTENSITY-140 #(140 140 140))
         (CONS   :INTENSITY-141 #(141 141 141))
         (CONS   :INTENSITY-142 #(142 142 142))
         (CONS   :INTENSITY-143 #(143 143 143))
         (CONS   :INTENSITY-144 #(144 144 144))
         (CONS   :INTENSITY-145 #(145 145 145))
         (CONS   :INTENSITY-146 #(146 146 146))
         (CONS   :INTENSITY-147 #(147 147 147))
         (CONS   :INTENSITY-148 #(148 148 148))
         (CONS   :INTENSITY-149 #(149 149 149))
         (CONS   :INTENSITY-150 #(150 150 150))
         (CONS   :INTENSITY-151 #(151 151 151))
         (CONS   :INTENSITY-152 #(152 152 152))
         (CONS   :INTENSITY-153 #(153 153 153))
         (CONS   :INTENSITY-154 #(154 154 154))
         (CONS   :INTENSITY-155 #(155 155 155))
         (CONS   :INTENSITY-156 #(156 156 156))
         (CONS   :INTENSITY-157 #(157 157 157))
         (CONS   :INTENSITY-158 #(158 158 158))
         (CONS   :INTENSITY-159 #(159 159 159))
         (CONS   :INTENSITY-160 #(160 160 160))
         (CONS   :INTENSITY-161 #(161 161 161))
         (CONS   :INTENSITY-162 #(162 162 162))
         (CONS   :INTENSITY-163 #(163 163 163))
         (CONS   :INTENSITY-164 #(164 164 164))
         (CONS   :INTENSITY-165 #(165 165 165))
         (CONS   :INTENSITY-166 #(166 166 166))
         (CONS   :INTENSITY-167 #(167 167 167))
         (CONS   :INTENSITY-168 #(168 168 168))
         (CONS   :INTENSITY-169 #(169 169 169))
         (CONS   :INTENSITY-170 #(170 170 170))
         (CONS   :INTENSITY-171 #(171 171 171))
         (CONS   :INTENSITY-172 #(172 172 172))
         (CONS   :INTENSITY-173 #(173 173 173))
         (CONS   :INTENSITY-174 #(174 174 174))
         (CONS   :INTENSITY-175 #(175 175 175))
         (CONS   :INTENSITY-176 #(176 176 176))
         (CONS   :INTENSITY-177 #(177 177 177))
         (CONS   :INTENSITY-178 #(178 178 178))
         (CONS   :INTENSITY-179 #(179 179 179))
         (CONS   :INTENSITY-180 #(180 180 180))
         (CONS   :INTENSITY-181 #(181 181 181))
         (CONS   :INTENSITY-182 #(182 182 182))
         (CONS   :INTENSITY-183 #(183 183 183))
         (CONS   :INTENSITY-184 #(184 184 184))
         (CONS   :INTENSITY-185 #(185 185 185))
         (CONS   :INTENSITY-186 #(186 186 186))
         (CONS   :INTENSITY-187 #(187 187 187))
         (CONS   :INTENSITY-188 #(188 188 188))
         (CONS   :INTENSITY-189 #(189 189 189))
         (CONS   :INTENSITY-190 #(190 190 190))
         (CONS   :INTENSITY-191 #(191 191 191))
         (CONS   :INTENSITY-192 #(192 192 192))
         (CONS   :INTENSITY-193 #(193 193 193))
         (CONS   :INTENSITY-194 #(194 194 194))
         (CONS   :INTENSITY-195 #(195 195 195))
         (CONS   :INTENSITY-196 #(196 196 196))
         (CONS   :INTENSITY-197 #(197 197 197))
         (CONS   :INTENSITY-198 #(198 198 198))
         (CONS   :INTENSITY-199 #(199 199 199))
         (CONS   :INTENSITY-200 #(200 200 200))
         (CONS   :INTENSITY-201 #(201 201 201))
         (CONS   :INTENSITY-202 #(202 202 202))
         (CONS   :INTENSITY-203 #(203 203 203))
         (CONS   :INTENSITY-204 #(204 204 204))
         (CONS   :INTENSITY-205 #(205 205 205))
         (CONS   :INTENSITY-206 #(206 206 206))
         (CONS   :INTENSITY-207 #(207 207 207))
         (CONS   :INTENSITY-208 #(208 208 208))
         (CONS   :INTENSITY-209 #(209 209 209))
         (CONS   :INTENSITY-210 #(210 210 210))
         (CONS   :INTENSITY-211 #(211 211 211))
         (CONS   :INTENSITY-212 #(212 212 212))
         (CONS   :INTENSITY-213 #(213 213 213))
         (CONS   :INTENSITY-214 #(214 214 214))
         (CONS   :INTENSITY-215 #(215 215 215))
         (CONS   :INTENSITY-216 #(216 216 216))
         (CONS   :INTENSITY-217 #(217 217 217))
         (CONS   :INTENSITY-218 #(218 218 218))
         (CONS   :INTENSITY-219 #(219 219 219))
         (CONS   :INTENSITY-220 #(220 220 220))
         (CONS   :INTENSITY-221 #(221 221 221))
         (CONS   :INTENSITY-222 #(222 222 222))
         (CONS   :INTENSITY-223 #(223 223 223))
         (CONS   :INTENSITY-224 #(224 224 224))
         (CONS   :INTENSITY-225 #(225 225 225))
         (CONS   :INTENSITY-226 #(226 226 226))
         (CONS   :INTENSITY-227 #(227 227 227))
         (CONS   :INTENSITY-228 #(228 228 228))
         (CONS   :INTENSITY-229 #(229 229 229))
         (CONS   :INTENSITY-230 #(230 230 230))
         (CONS   :INTENSITY-231 #(231 231 231))
         (CONS   :INTENSITY-232 #(232 232 232))
         (CONS   :INTENSITY-233 #(233 233 233))
         (CONS   :INTENSITY-234 #(234 234 234))
         (CONS   :INTENSITY-235 #(235 235 235))
         (CONS   :INTENSITY-236 #(236 236 236))
         (CONS   :INTENSITY-237 #(237 237 237))
         (CONS   :INTENSITY-238 #(238 238 238))
         (CONS   :INTENSITY-239 #(239 239 239))
         (CONS   :INTENSITY-240 #(240 240 240))
         (CONS   :INTENSITY-241 #(241 241 241))
         (CONS   :INTENSITY-242 #(242 242 242))
         (CONS   :INTENSITY-243 #(243 243 243))
         (CONS   :INTENSITY-244 #(244 244 244))
         (CONS   :INTENSITY-245 #(245 245 245))
         (CONS   :INTENSITY-246 #(246 246 246))
         (CONS   :INTENSITY-247 #(247 247 247))
         (CONS   :INTENSITY-248 #(248 248 248))
         (CONS   :INTENSITY-249 #(249 249 249))
         (CONS   :INTENSITY-250 #(250 250 250))
         (CONS   :INTENSITY-251 #(251 251 251))
         (CONS   :INTENSITY-252 #(252 252 252))
         (CONS   :INTENSITY-253 #(253 253 253))
         (CONS   :INTENSITY-254 #(254 254 254))
         (CONS   :INTENSITY-255 #(255 255 255))
         ))